
use "C:\Users\owner\Dropbox\Blockholders\M_RA_ins_active2_5per 1 gvkey_year recovered.dta" 
*Figure 1 Panel A
cmogram  Nf13tot distancecutoff2 if  distancecutoff2 <=250 & distancecutoff2 >=-250 , histopts(bin(60)) cut(0) scatter line(0) lfitci
*Figure 1 Panel B
rdplot totindex2 distancecutoff2 if  distancecutoff2 <=250 & distancecutoff2 >=-250   & !missing( distancecutoff ) & Nf13tot<0.9 & year>=2001 & year<=2014, p(3)  graph_options(title(RD Plot) ytitle("Total fraction of shares held by index funds") legend(off) ylabel(0(.1).5) ) cut(0) ci(.95)
